5 POKE808,234:ONI+1GOTO10,20,30,40
10 I=1:LOAD"[218] 03 [218]",8,1
20 I=2:LOAD"[218] 04 [218]",8,1
30 I=3:LOAD"[218] 05 [218]",8,1
40 PRINT"L[207]"CHR$(34)"[218] 06 [218]"CHR$(34)",8:
50 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]